home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / sims.arc / PROCDEM.SRC < prev    next >
Text File  |  1987-04-07  |  3KB  |  155 lines
  1. ' Procedure Demonstration Menu  Version 1.00
  2. ' SIMS (c) David Thomas Stewart 1984-1987
  3. ' Distributed by Synergy Development - THIS PROGRAM IS PUBLIC DOMAIN
  4.  
  5. screen(n)
  6.  
  7. normal
  8. foreground(white+)
  9. background(red)
  10. setdate
  11. settime
  12.  
  13. date(2,9)
  14. time(65,9)
  15.  
  16. normal
  17. foreground(green)
  18. setattr
  19.  
  20. box(0,0)-(79,24),"║"
  21. fill(1,0),"═",78
  22. fill(1,24),"═",78
  23. fill(1,8),"─",78
  24. fill(1,10),"─",78
  25. .(0,0)"╔"
  26. .(0,24)"╚"
  27. .(79,0)"╗"
  28. .(79,24)"╝"
  29. .(0,8)"╟"
  30. .(79,8)"╢"
  31. .(0,10)"╟"
  32. .(79,10)"╢"
  33.  
  34. foreground(white+)
  35. background(blue)
  36. setattr
  37. .(27,9)" Procedure Demo Version 1.00 "
  38.  
  39. normal
  40. foreground(yellow)
  41. setattr
  42. .(5,2)"█████▒  █████▒   █████▒  ████▒  ███▒     ████▒  ███████▒  █████▒"
  43. .(5,3)"█▒  █▒  █▒  █▒   █▒  █▒  █▒     █▒ █▒    █▒     █▒ █▒ █▒  █▒  █▒"
  44. .(5,4)"█████▒  █████▒   █▒  █▒  █▒     █▒  █▒   ████▒  █▒ █▒ █▒  █▒  █▒"
  45. .(5,5)"█▒      █▒  ██▒  █▒  █▒  █▒     █▒   █▒  █▒     █▒ █▒ █▒  █▒  █▒"
  46. .(5,6)"█▒      █▒   █▒  █████▒  ████▒  ██████▒  ████▒  █▒ █▒ █▒  █████▒"
  47.  
  48. option start
  49. option(F1,11,13)" F1 - EXEC Procedure ","\COMMAND.COM/C DIR/P",wait
  50. option(F3,11,14)" F3 - EXEC and DONE Procedures ","\COMMAND.COM/C DIR/P",wait
  51. option(F2,44,13)" F2 - DONE Procedure ","\COMMAND.COM/C DIR/P",clear,noclock,wait
  52. option(F4,44,14)" F4 - Return to DEMO Menu ","MENU DEMO"
  53. option end
  54.  
  55. border(grey)
  56.  
  57. normal
  58. foreground(cyan)
  59. setattr
  60.  
  61. proc(F1,select)
  62. fill(1,17)," ",78
  63. .(18,17)"This is option F1 - EXEC Procedure"
  64. proc end
  65.  
  66. proc(F2,select)
  67. fill(1,17)," ",78
  68. .(18,17)"This is option F2 - DONE Procedure"
  69. proc end
  70.  
  71. proc(F3,select)
  72. fill(1,17)," ",78
  73. .(18,17)"This is option F3 - EXEC and DONE Procedures"
  74. proc end
  75.  
  76. proc(F4,select)
  77. fill(1,17)," ",78
  78. .(18,17)"This is option F4 - Return to DEMO Menu"
  79. proc end
  80.  
  81. proc(F1,exec)
  82. invisible
  83. settime
  84. setdate
  85. setstat
  86. normal
  87. foreground(red+)
  88. setattr
  89. field(0,0)-(79,24)
  90. .(20,0)"*** This is an EXEC procedure ***"
  91. .(10,3)"It can be used to give instructions prior to the execution"
  92. .(10,4)"of an OPTION. The following example illustrates this:"
  93. foreground(green+)
  94. setattr
  95. .(20,8)"DIRECTORY OF DISKETTE - Press ─┘ To Continue"
  96. foreground(red+)
  97. setattr
  98. .(10,11)"(Press Enter now...)"
  99. wait(ENTER)
  100. field(0,0)-(79,24)
  101. proc end
  102.  
  103. proc(F2,done)
  104. time(65,0)
  105. normal
  106. foreground(red+)
  107. setattr
  108. field(0,0)-(79,24)
  109. .(20,0)"*** DIRECTORY COMPLETE ***"
  110. foreground(green+)
  111. setattr
  112. .(10,4)"Press ─┘ to continue"
  113. wait(ENTER)
  114. proc end
  115.  
  116. proc(F3,exec)
  117. invisible
  118. settime
  119. setdate
  120. setstat
  121. normal
  122. foreground(red+)
  123. setattr
  124. field(0,0)-(79,24)
  125. .(20,0)"*** This is an EXEC procedure ***"
  126. .(10,3)"It can be used to give instructions prior to the execution"
  127. .(10,4)"of an OPTION. The following example illustrates this:"
  128. foreground(green+)
  129. setattr
  130. .(20,8)"DIRECTORY OF DISKETTE - Press ─┘ To Continue"
  131. foreground(red+)
  132. setattr
  133. .(10,11)"(Press Enter now...)"
  134. wait(ENTER)
  135. field(0,0)-(79,24)
  136. proc end
  137.  
  138. proc(F3,done)
  139. invisible
  140. settime
  141. setdate
  142. setstat
  143. normal
  144. foreground(red+)
  145. setattr
  146. field(0,0)-(79,24)
  147. .(20,0)"*** DIRECTORY COMPLETE ***"
  148. foreground(green+)
  149. setattr
  150. .(10,4)"Press ─┘ to continue"
  151. wait(ENTER)
  152. proc end
  153.  
  154. end
  155.